<%

Function torneio_lista_indice (conexao, id_torneio, grupos)

	str = "Select id, fase, nivel, posicao, nome FROM torneios_grupos WHERE id_torneio="&id_torneio&" order by fase asc, nivel asc, posicao asc"
    Set rs = conexao.Execute(str)
	
	DIM total
	
	total = 0
	
	Do while not rs.eof
	
		grupos(total, 0) = rs("id")
		grupos(total, 1) = rs("fase")
		grupos(total, 2) = rs("nivel")
		grupos(total, 3) = rs("posicao")
		grupos(total, 4) = rs("nome") 
		
		total=total+1
	
	rs.MoveNext
	Loop
	
	torneio_lista_indice = total

End Function

Function torneio_lista_grupo (conexao, id_torneio, fase, nivel, posicao, lista_clubes)

	if fase=0 or nivel=0 or posicao=0 then
		str = "Select id FROM torneios_grupos WHERE id_torneio="&id_torneio&" order by status asc, fase asc, nivel asc, posicao asc LIMIT 1" 
	else
		str = "Select id FROM torneios_grupos WHERE id_torneio="&id_torneio&" AND fase="&fase&" AND nivel="&nivel&" AND posicao="&posicao
	End IF

    Set rs = conexao.Execute(str)
	
	DIM total, id_grupo
	
	If not rs.eof then
	
		id_grupo = rs("id")
	
		total = 0
		
		str = "Select * FROM torneios_lista WHERE id_grupo="&id_grupo
    	Set rs = conexao.Execute(str)
		
		Do while not rs.eof
		
			lista_clubes(total, 0) = rs("id_clube")
			lista_clubes(total, 1) = rs("fase")
			lista_clubes(total, 2) = rs("posicao")
			lista_clubes(total, 3) = rs("vitorias")
			lista_clubes(total, 4) = rs("jogos") 
			
			total=total+1
		
		rs.MoveNext
		Loop
	
	Else
	
		total=-1
		
	End IF
	
	torneio_lista_grupo = total

End Function


%>
